00100	VARIABLE /X;
00200	COMPILE;
00300	INSTRUMENT RAN;
00400	RANDI(P7*MAG,P8*MAG);
00500	RANDH(255.5,P6*MAG+U1);
00600	VFMULT(P5*MAG,256.5+U2,F1);
00700	OSCIL(P3,P6*MAG+U1,F2);
00800	OSCIL(U4,P4*MAG+U3,F3);
00900	OUTA←OUTA+U5;
01000	END;
01100	FINISH;
01200	SEG(F1);0,256,0,1,1,255,1
01300	SYNTH(F2);99,.25,1,180,1,999
01400	SYNTH(F3);1,1,999
01500	SRATE←10000;
01600	MAG←512/SRATE;
01700	COMPILE;
01800	INSTRUMENT MOD;
01900	OSCIL(P3,MAG/P2,F1);
02000	OSCIL(U1,P4*MAG,F2);
02100	OSCIL(U2,P5*MAG,F3);
02200	OUTA←U3;
02300	END;FINISH;